LParameters cDsn, cUser, cPwd, cBD, cPRG, cDiretorio, cExecutavel

If Parameters() <> 7
	Quit
EndIf

Public _Dsn, _User, _Pwd, _BD, _PRG, _Diretorio, _Exe

Set Talk Off
Set Safety Off

_Dsn = cDsn
_User = cUser
_Pwd = cPwd
_BD = cBD
_PRG = cPRG
_Diretorio = cDiretorio
_Exe = Addbs(cDiretorio)+Alltrim(cExecutavel)

Set Procedure To Filetime

DO form download

Close All
Clear All

Return .t.